home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
os2
/
te2_130t.arj
/
TE2INST.003
/
GEREG.scr
< prev
next >
Wrap
Text File
|
1994-03-28
|
1KB
|
40 lines
string LoginID = "XTX99673,GENIE"
string USPhone = "1-800-638-8369"
string CanPhone = "1-800-387-8330"
integer hd
program
if !connected
setparms(-1, 2400, 0, 8, 0)
emulate(TTY)
lfaftercr(FALSE)
localecho(TRUE)
cls()
dial(USPhone)
endif
if connected
transmit("HHH")
if muxwait("/U#=/Uú╜/", 60)
transmit("%s^M", LoginID)
waitfor("80 ?", 60)
transmit("80^M")
waitfor("or PDN ?", 60)
hd = opendialog(4, 16, 9, 60, DLogNormAttr)
strput(5, 18, DLogNormAttr, "You are now online for GEnie registration")
strput(6, 18, DLogNormAttr, "Please follow the directions on screen")
strput(8, 18, DLogNormAttr, " Press any key to begin")
getc()
closedialog(hd)
else
beep(880, 2)
message("^M^J!! Couldn't locate GEnie login prompt !!^M^J")
hangup(IFCARRIER)
endif
else
hangup(IFCARRIER)
endif
end